home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / upadr.zip / UPADR.PPS < prev   
Text File  |  1993-05-07  |  4KB  |  146 lines

  1. ; User Address Update PPS File - Original By Ralph LoBianco
  2. ;
  3. ; Modified by Brian Hillis - Ability OnLine - Toronto Canada.
  4. ;
  5. ; To allow for Provice as well as State, and to allow for Canadian
  6. ; Postal Codes (as well as a few other tid-bits) and the ability to
  7. ; Display language and/or security screens.
  8. ;
  9. ; This PPL will let users update their address information ONLY,
  10. ; rather than using the W command to update everything.
  11. ;
  12. ; Modified again by Michele Stewart - SunShine PCBoard - Pembroke Pines, FL
  13. ; ...with some help from hubby, Peter, to check for blank address info before
  14. ; allowing update and to display a file called UPADR. Use as login script ONLY.
  15. ;
  16.  
  17. ;Define variable's
  18.  
  19.    STRING ANYTEXT
  20.    STRING COMMAND1
  21.    STRING COMMAND2
  22.    STRING COMMAND3
  23.  
  24. ANYTEXT=" 1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
  25.  
  26. ;Get user info from the USER record
  27.  
  28.    GETUSER
  29.  
  30. ; /* If the Address PSA is enabled then also check to see if the Address 1
  31. ;    and City fields are blank.  If so, then this user has not yet given
  32. ;    address information.                                                  */
  33.  
  34.  IF (psa(3) & (strip(u_addr(0)," ") = "") & (strip(u_addr(2)," ") = "")) then
  35.     GOTO MAIN
  36.  ELSE
  37.     GOTO END
  38.  ENDIF
  39.  
  40. :MAIN
  41.    COMMAND1=""
  42.    COMMAND2=""
  43.    COMMAND3=""
  44.  
  45.    CLS
  46.    dispfile ppepath()+"upadr", GRAPH+SEC+LANG
  47.    println  "@X0E    1 @X0F- @X0BStreet & Number: @X0F",U_ADDR(0)
  48.    println  "@X0E    2 @X0F- @X0B  Suite or Unit: @X0F",U_ADDR(1)
  49.    println  "@X0E    3 @X0F- @X0B           City: @X0F",U_ADDR(2)
  50.    println  "@X0E    4 @X0F- @X0B Province/State: @X0F",U_ADDR(3)
  51.    println  "@X0E    5 @X0F- @X0BPostal/Zip Code: @X0F",U_ADDR(4)
  52.    println  "@X0E    6 @X0F- @X0B        Country: @X0F",U_ADDR(5)
  53.    println
  54.    inputstr "@X0E    Select @X0F1 - 6@X0E, (@X0FQ@X0E)uit and save@X0F",COMMAND3,@X0E,1,"123456SQ ",10
  55.  
  56.    println
  57.    if (COMMAND3="")  goto MAIN
  58.    if (COMMAND3="1") goto ADDR0
  59.    if (COMMAND3="2") goto ADDR1
  60.    if (COMMAND3="3") goto ADDR2
  61.    if (COMMAND3="4") goto ADDR3
  62.    if (COMMAND3="5") goto ADDR4
  63.    if (COMMAND3="6") goto ADDR5
  64.    if (COMMAND3="Q") goto SAVEIT
  65.  
  66. :ADDR0
  67.    println
  68.    inputstr "@X0A        Street & Number",COMMAND1,@X0E,45,ANYTEXT,10
  69.    if (COMMAND1="" | LEFT(COMMAND1,1)=" ") goto MAIN
  70.    U_ADDR(0)=COMMAND1
  71.    goto MAIN
  72.  
  73. :ADDR1
  74.    println
  75.    inputstr "@X0A          Suite or Unit",COMMAND1,@X0E,30,ANYTEXT,10
  76.    if (COMMAND1="" | LEFT(COMMAND1,1)=" ") goto MAIN
  77.    U_ADDR(1)=COMMAND1
  78.    goto MAIN
  79.  
  80. :ADDR2
  81.    println
  82.    inputstr "@X0A                   City",COMMAND1,@X0E,30,ANYTEXT,10
  83.    if (COMMAND1="" | LEFT(COMMAND1,1)=" ") goto MAIN
  84.    U_ADDR(2)=COMMAND1
  85.    goto MAIN
  86.  
  87. :ADDR3
  88.    println
  89.    inputstr "@X0A         Province/State",COMMAND1,@X0E,10,ANYTEXT,10
  90.    if (COMMAND1="" | LEFT(COMMAND1,1)=" ") goto MAIN
  91.    U_ADDR(3)=COMMAND1
  92.    goto MAIN
  93.  
  94. :ADDR4
  95.    println
  96.    inputstr "@X0A        Postal/Zip Code",COMMAND1,@X0E,10,ANYTEXT,10
  97.    if (COMMAND1="" | LEFT(COMMAND1,1)=" ") goto MAIN
  98.    U_ADDR(4)=COMMAND1
  99.    goto MAIN
  100.  
  101. :ADDR5
  102.    println
  103.    inputstr "@X0A                Country",COMMAND1,@X0E,15,ANYTEXT,10
  104.    if (COMMAND1="" | LEFT(COMMAND1,1)=" ") goto MAIN
  105.    U_ADDR(5)=COMMAND1
  106.    goto MAIN
  107.  
  108. :SAVEIT
  109.    if (U_ADDR(0)="" | LEFT(U_ADDR(0),1)=" ") then
  110.       goto NOINFO
  111.    elseif (U_ADDR(2)="" | LEFT(U_ADDR(2),1)=" ") then
  112.       goto NOINFO
  113.    elseif (U_ADDR(3)="" | LEFT(U_ADDR(3),1)=" ") then
  114.       goto NOINFO
  115.    elseif (U_ADDR(4)="" | LEFT(U_ADDR(4),1)=" ") then
  116.       goto NOINFO
  117.    endif
  118.    goto DONE
  119.  
  120. :NOINFO
  121.    println
  122.    println "@X0A    You have NOT entered all the information required to complete"
  123.    println "@X0A    your USER record. If you don't do it now, you'll be asked again"
  124.    println "@X0A    each time you log on until the informaton is completed."
  125.    println
  126.    inputyn "@X0E    Do you still want to Quit anyway (y/N)@X07",COMMAND2,@X0F
  127.  
  128.    If (COMMAND2="Y") goto DONE
  129.    if (COMMAND2="N") goto MAIN
  130.    if (COMMAND2="")  goto MAIN
  131.  
  132. :DONE
  133.    println
  134.    println "@X0A    Thanks for taking the time to update your USER record @FIRST@."
  135.    println
  136.    println "@X0A    In the future if you need to update this information, simply"
  137.    println "@X0A    type @X0FW@X0A at the Main Command prompt.@X07"
  138.    println
  139.    PUTUSER
  140.    END
  141.  
  142.  
  143. :END
  144.    END
  145.  
  146.